From: Lars Ingebrigtsen Date: Sat, 15 Jun 2019 15:09:08 +0000 (+0200) Subject: Make obsolete function zip-lists work again X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~19^2~2898 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=3f4c2f813adeffc6814ee01116704ccf420c3bd9;p=emacs.git Make obsolete function zip-lists work again * lisp/obsolete/cl-compat.el (zip-lists): Use cl-mapcan instead of mapcan; mapcan now takes only two parameters. --- diff --git a/lisp/obsolete/cl-compat.el b/lisp/obsolete/cl-compat.el index b2735826ce1..7882705fe9f 100644 --- a/lisp/obsolete/cl-compat.el +++ b/lisp/obsolete/cl-compat.el @@ -142,7 +142,7 @@ (Values (mapcar* 'list newsyms oldforms) newsyms))) (defun zip-lists (evens odds) - (mapcan 'list evens odds)) + (cl-mapcan 'list evens odds)) (defun unzip-lists (list) (let ((e nil) (o nil))